home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / coppers.lha / CopperDemo3.s < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.2 KB  |  70 lines
  1. STARTUP:
  2. MOVEM.L     D0-D7/A0-A6,-(A7)    
  3. MOVE.L     $4,A6        
  4. LEA     GFXNAME,A1             
  5. JSR     -408(A6)        
  6. MOVE.L     D0,GFXBASE        
  7. MOVE.L     $4,A6        
  8. MOVE.L     GFXBASE,A0        
  9. ADD.L     #$32,A0            
  10. MOVE.L     (A0),OLDCOPPER        
  11. MOVE.L     #LISTE,(A0)
  12. MOVE.W     #$0020,$DFF096 
  13. MOVE.L     #$8010,$DFF09A
  14. MOVE.L     $4,A6
  15. LEA     GFXNAME,A1
  16. JSR     -408(A6)
  17. MOVE.L     D0,GFXBASE
  18. MOVE.L     $4,A6
  19. JSR     -132(A6)
  20. MOVE.W     #$0020,$DFF09A
  21. MOVE.L     $6C,OLDIRQ
  22. MOVE.L   $68,OLDTASTIRQ
  23. MOVE.L   #NEWTASTIRQ,$68
  24. MOVE.L     #IRQNEW,$6C
  25. MOVE.W     #$8020,$DFF09A
  26. BRA     MOUSE
  27.  
  28. IRQNEW:
  29. MOVEM.L    D0-D7/A0-A6,-(SP)
  30.  
  31. MOVEM.L    (SP)+,D0-D7/A0-A6
  32. DC.W        $4EF9
  33. OLDIRQ:
  34. DC.L    0
  35.  
  36. NEWTASTIRQ:
  37. MOVEM.L    D0-D7/A0-A6,-(SP)
  38.  
  39. MOVEM.L    (SP)+,D0-D7/A0-A6
  40. DC.W        $4EF9
  41. OLDTASTIRQ:
  42. DC.L    0
  43.  
  44. MOUSE:
  45. CMP.B     #$7F,$BFEC01
  46. BNE.S     MOUSE
  47. MOVE.L     $4,A6
  48. MOVE.L     GFXBASE,A1
  49. JSR     -414(A6)
  50. MOVE.L     GFXBASE,A0    
  51. ADD.L    #$32,A0        
  52. MOVE.W     #$0080,$DFF096    
  53. MOVE.L     OLDCOPPER,(A0)    
  54. MOVE.W     #$8080,$DFF096    
  55. MOVE.L     OLDIRQ,$6C
  56. MOVE.L   OLDTASTIRQ,$68
  57. MOVEM.L     (A7)+,D0-D7/A0-A6
  58. RTS
  59. LISTE:
  60. DC.W $0180,$0000
  61. DC.W $2B01,$FFFE
  62. DC.W $008E,$2C81,$0090,$F4C1,    
  63. DC.W $0092,$0038,$0094,$00d0     
  64. DC.W $0102,$0000,$0180,$0000
  65. DC.W $FFFF,$FFFE 
  66. OLDCOPPER: DC.L 0
  67. GFXNAME: DC.B "graphics.library",0
  68. EVEN
  69. GFXBASE: DC.L 0
  70.